Diccionario Visual Trilingue/VISUAL.iso/STARTUP.DIR/00007_Frame control button.ls

Text File | 1997-07-04 | 348 b | 20 lines

on keyDown
  set the castNum of sprite 2 to the castNum of sprite 2 + 1
  updateStage()
  startTimer()
  repeat while the timer < 10
    nothing()
  end repeat
  set the castNum of sprite 2 to the castNum of sprite 2 - 1
  updateStage()
  GoToMain()
end

on exitFrame
  if the timer < 1200 then
    go(the frame)
  else
    GoToMain()
  end if
end